home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #056 (19xx)(APS Electronic).zip / Bavarian #056 (19xx)(APS Electronic).adf / stdinp.inp < prev    next >
Text File  |  1987-08-11  |  3KB  |  165 lines
  1. /* stdinp.inp - standard definitions example file */
  2.  
  3. message "Standard parameter definitions:"
  4.  
  5.     macro StdView
  6.         scan from 0 to 400 rows 400 columns 320 mode 0 bpp 4
  7.         antialias with count = 1 and thresh = 1
  8.         look from 10 10 110 at 0 0 0 with up of 0 1 0
  9.         set background to 0 .1 .8
  10.         ambient proportional factor is .3
  11.         done StdView
  12.  
  13. message "Standard texture definitions:"
  14.  
  15. macro StdTextures
  16.     wave            /* texture 10 */
  17.     center         0 0 0
  18.     wavelength  20
  19.     amplitude   .9
  20.     damping        1
  21.     propagate   0
  22.     wave            /* texture 11 */
  23.     center        50 0 0
  24.     wavelength  17
  25.     amplitude   .7
  26.     damping        1
  27.     propagate   0
  28.     wave            /* texture 12 */
  29.     center        -100 0 30
  30.     wavelength  11
  31.     amplitude   .5
  32.     damping        1
  33.     propagate   0
  34.     wave            /* texture 13 */
  35.     center        0 0 -47
  36.     wavelength  7
  37.     amplitude   .3
  38.     damping        1
  39.     propagate   0
  40.     wave            /* texture 14 */
  41.     center        10 0 200
  42.     wavelength  12
  43.     amplitude   .2
  44.     damping        1
  45.     propagate   0
  46.     marble            /* texture 20 */
  47.     vein color  .7 .5 0
  48.     xscale        0.5
  49.     turbulence  2.7
  50.     squeeze        4
  51.     pebble            /* texture 90 */
  52.     scale 1
  53.     zoom  .2
  54.     done StdTextures
  55.  
  56. message "Standard light definitions:"
  57.  
  58. macro StdLights
  59.     directional color of  1  1  1 from  .1 .1 1
  60.     directional color of  1  1  1 from   1  1 0
  61.     done StdLights
  62.  
  63. message "Standard attribute definitions:"
  64.  
  65. macro StdAtts
  66.     attribute black
  67.     use a texture of 0
  68.     fuzz = 0
  69.     mirror = 0
  70.     index is 1.2
  71.     transparency = 0 0 0
  72.     set ambient to 0 0 0
  73.     set diffuse to 0 0 0
  74.     attribute tile
  75.     use a texture of 6
  76.     fuzz = 0
  77.     mirror = .3
  78.     index is 1.2
  79.     transparency = 0 0 0
  80.     set ambient to 0 0 0
  81.     diffuse is 0 0 0
  82.     attribute brick
  83.     use a texture of 5
  84.     fuzz = .7
  85.     mirror = 0
  86.     index is 1.2
  87.     transparency = 0 0 0
  88.     set ambient to 0 0 0
  89.     diffuse is .9 .6 .5
  90.     attribute waves
  91.     use a texture of 4
  92.     fuzz = .6
  93.     mirror = .7
  94.     index is 1
  95.     transparency = 0 0 0
  96.     set ambient to 0 0 0
  97.     diffuse is 0 0 .1
  98.     attribute mirror
  99.     use a texture of 0
  100.     fuzz = 0
  101.     mirror = .9
  102.     index is 1.2
  103.     transparency = 0 0 0
  104.     set ambient to 0 0 0
  105.     diffuse is .1 .1 .1
  106.     attribute metal
  107.     use a texture of 0
  108.     fuzz = .2
  109.     mirror = .9
  110.     index is 0
  111.     transparency = 0 0 0
  112.     set ambient to 0 0 0
  113.     diffuse is 0 0 1
  114.     attribute rock
  115.     use a texture of 20
  116.     fuzz = 1.2
  117.     mirror = 0
  118.     index is 1.2
  119.     trans = 0 0 0
  120.     amb = 0 0 0
  121.     diffuse .5 .3 0
  122.     fractal            /* psuedo texture of 60 */
  123.     recursion 5
  124.     scale .08 1.3 .08
  125.     finalatt rock
  126.     attribute mountain
  127.     use a texture of 60
  128.     fuzz = 0
  129.     mirror = 0
  130.     index = 0
  131.     trans = 0 0 0
  132.     amb = 0 0 0
  133.     dif = 0 0 0
  134.     attribute grass
  135.     use a texture of 90
  136.     fuzz = .3
  137.     mirror = 0
  138.     index = 1.2
  139.     trans = 0 0 0
  140.     amb = 0  0 0
  141.     dif = 0 .3 0
  142.     done StdAtts
  143.  
  144. message "Standard clear attribute definitions:"
  145.  
  146. macro StdClrAtts
  147.     attribute fire
  148.     use a texture of 0
  149.     fuzz = .9
  150.     mirror = .3
  151.     index is 1.2
  152.     trans = .8 .8 .8
  153.     amb = .9 0 0
  154.     diffuse 1 0 0
  155.     attribute glass
  156.     use a texture of 0
  157.     fuzz = 0
  158.     mirror = .3
  159.     index is 1.2
  160.     transparency = .7 .7 .7
  161.     set ambient to 0 0 0
  162.     diffuse is 0 0 0
  163.     done StdClrAtts
  164.  
  165.